cls
?"Welcome to the arena!"
?"It is filled with an anti-magic spell.  All magic is permanently destroyed"
?"if it enters the arena."
?"No missile weapons are allowed -- they disappear in a flash of light when"
?"thrown."
?"The walls are made of an unbreakable transparent material.  The ceiling"
?"and floor are of the same material."
?"All fights are to the death."
?
?"Hit <enter> to be transported in."
input "",

cls
input "How many attacks per round do you get";pnumatax
input "What is your armor class";pac
input "How many hit points do you have";php
input "What is your level";plevel
input "What is your size (1 = small or medium, 2 = large)";psize

cls
?"Selecting your opponent . . ."
Gosub SelectOpponent
?"Your opponent is a(n) ";opponent$;"!"

round = 0

NewRound:
 round = round + 1
 segment = 0
 gosub RollInitiative
 NewSegment:
  segment = segment + 1
  if segment = 11 then goto NewRound
   if oinit(segment) = 0 and pinit(segment) = 0 then goto newsegment
   ?"It is segment";segment;" of round";round;"."

   If pinit(segment) = 1 then
    ?"You attack this segment!"
    Input"Roll your hit die!  What is the best armor class you could have hit";pachit
    If pachit <= oac then
     ?"You hit the ";opponent$;"!"
     Input"Roll damage vs. a ";osize;" opponent.  What is the damage";pdam
     ohp = ohp - pdam
     else ?"You missed the ";opponent$;"."
     end if
    end if

   If oinit(segment) = 1 then
    ?"The ";opponent$;" attacks this segment!"
    gosub HitDie
    If oachit <= pac then
     ?"The ";opponent$;" hit you!"
     gosub DamageRoll
     ?"You took";odam;" points of damage."
     else ?"The ";opponent$;" missed."
     end if
    end if

   ?"The ";opponent$;" has";ohp;" hit points."
   ?"You have";php;" hit points."
   if ohp < 1 and php > 0 then goto YouWin
   if php < 1 then goto YouLose

   goto NewSegment